unit SpeechI;

interface
const
SpeechGUID:TGUID = '{EB9A7157-B056-4380-8668-52252E0DD4C9}';
type ISpeech = ^_Speech;
_Speech = packed record
SpeakText:Procedure(const str:PWideChar); cdecl;
SetRate:procedure(rate:integer); cdecl;
GetRate:function:integer; cdecl;
SetVolume:Procedure(volume:integer); cdecl;
GetVolume:Function:integer; cdecl;
end;
implementation

end.
